;CRE NODE FORMATS.
;----------------------------------------------------------------;
;								 ;
;       VERTEX/ARC NODE.	POLYGON/REGION NODE.		 ;
;								 ;
;	0   CW,,CCW  		0   polygon-ring.		 ;
; 	1   ROW,,COL		1   DAD,,SON  			 ;
;	2   TYPE,,RELOC		2   TYPE,,RELOC			 ;
;	3   ENDO,,EXO		3   ENDO,,EXO			 ;
;	4   ARC,,PED		4   ARC,,NCNT          		 ;
;	5   CNTRST,,PGON	5   CIS,,PGON			 ;
;	6   NTIME,,PTIME	6   NTIME,,PTIME		 ;
;								 ;
;----------------------------------------------------------------;
;   	WINGED EDGE NODE.       FACE NODE.			 ;
;								 ;
;	0   NCW ,,PCW		0    - ,, -			 ;
; 	1   NCCW,,PCCW		1   DAD,, -  			 ;
;	2   TYPE,,lngth/cntrst	2   TYPE,,RELOC			 ;
;	3   NFACE,,PFACE	3   NFACE,,PFACE		 ;
;	4   NED,,PED		4    - ,,PED			 ;
;	5   NVT,,PVT		5    - ,, -			 ;
;	6   NTIME,,PTIME	6   NTIME,,PTIME		 ;
;								 ;
;----------------------------------------------------------------;
;       IMAGE NODE.             LEVEL NODE.			 ;
;								 ;
;	0   image-ring.		0    level-ring.		 ;
; 	1    - ,,SON  		1    - ,,SON 			 ;
;	2   TYPE,,RELOC		2   TYPE,,RELOC			 ;
;	3   NFACE,,PFACE	3    - ,, -    			 ;
;	4   NED,,PED		4    - ,,NCNT 			 ;
;	5    - ,, - 		5    - ,, -			 ;
;	6   NTIME,,PTIME	6   NTIME,,PTIME		 ;
;								 ;
;----------------------------------------------------------------;
;       FILM NODE.              EMPTY NODE.			 ;
;								 ;
;	0   coresize 		0    - ,,avail			 ;
; 	1    - ,,SON  		1    - ,, -			 ;
;	2   TYPE,,RELOC		2   TYPE,,RELOC			 ;
;	3    - ,,avail  	3    - ,, -    			 ;
;	4   blk count		4    - ,, - 			 ;
;	5    - ,, - 		5    - ,, -			 ;
;	6   NTIME,,PTIME	6   NTIME,,PTIME		 ;
;								 ;
;----------------------------------------------------------------;
;LINK NAMES DEFINED.

	DEFINE SON  (A,Q){CDR A,1(Q)}↔	DEFINE SON. (A,Q){DAP A,1(Q)}
	DEFINE DAD  (A,Q){CAR A,1(Q)}↔	DEFINE DAD. (A,Q){DIP A,1(Q)}

	DEFINE TYPE (A,Q){CAR A,2(Q)}↔	DEFINE TYPE.(A,Q){DIP A,2(Q)}
	DEFINE RELOC (A,Q){CDR A,2(Q)}↔	DEFINE RELOC.(A,Q){DAP A,2(Q)}

	RC←←1
	DEFINE ROW(A,Q){HLRE A,1(Q)} ↔ DEFINE ROW.(A,Q){DIP A,1(Q)}
	DEFINE COL(A,Q){HRRE A,1(Q)} ↔ DEFINE COL.(A,Q){DAP A,1(Q)}
	DEFINE ARC(A,Q){CAR A,4(Q)} ↔ DEFINE ARC.(A,Q){DIP A,4(Q)}

	DEFINE CW (A,Q){CAR A,0(Q)} ↔ DEFINE CCW (A,Q){CDR A,0(Q)}
	DEFINE CW.(A,Q){DIP A,0(Q)} ↔ DEFINE CCW.(A,Q){DAP A,0(Q)}
	DEFINE CNTRST(A,Q){NIP A,5(Q)}↔DEFINE CNTRS.(A,Q){DIP A,5(Q)}

	DEFINE NCW (A,Q){CAR A,0(Q)}↔DEFINE NCW. (A,Q){DIP A,0(Q)}
	DEFINE PCW (A,Q){CDR A,0(Q)}↔DEFINE PCW. (A,Q){DAP A,0(Q)}
	DEFINE NCCW(A,Q){CAR A,1(Q)}↔DEFINE NCCW.(A,Q){DIP A,1(Q)}
	DEFINE PCCW(A,Q){CDR A,1(Q)}↔DEFINE PCCW.(A,Q){DAP A,1(Q)}

	DEFINE NFACE(A,Q){CAR A,3(Q)}↔DEFINE NFACE.(A,Q){DIP A,3(Q)}
	DEFINE PFACE(A,Q){CDR A,3(Q)}↔DEFINE PFACE.(A,Q){DAP A,3(Q)}

	DEFINE NED (A,Q){CAR A,4(Q)}↔DEFINE NED. (A,Q){DIP A,4(Q)}
	DEFINE PED (A,Q){CDR A,4(Q)}↔DEFINE PED. (A,Q){DAP A,4(Q)}
	DEFINE NVT (A,Q){CAR A,5(Q)}↔DEFINE NVT. (A,Q){DIP A,5(Q)}
	DEFINE PVT (A,Q){CDR A,5(Q)}↔DEFINE PVT. (A,Q){DAP A,5(Q)}


	DEFINE NTIME(A,Q){CAR A,6(Q)}↔DEFINE NTIME.(A,Q){DIP A,6(Q)}
	DEFINE PTIME(A,Q){CDR A,6(Q)}↔DEFINE PTIME.(A,Q){DAP A,6(Q)}

	DEFINE ENDO(A,Q){CAR A,3(Q)}↔DEFINE ENDO.(A,Q){DIP A,3(Q)}
	DEFINE EXO (A,Q){CDR A,3(Q)}↔DEFINE EXO. (A,Q){DAP A,3(Q)}
	DEFINE NGON(A,Q){CAR A,5(Q)}↔DEFINE NGON.(A,Q){DIP A,5(Q)}
	DEFINE PGON(A,Q){CDR A,5(Q)}↔DEFINE PGON.(A,Q){DAP A,5(Q)}
	DEFINE NCNT(A,Q){NAP A,4(Q)}↔DEFINE NCNT.(A,Q){DAP A,4(Q)}

	DEFINE PDPY(A,Q){CDR A,4(Q)}↔DEFINE PDPY.(A,Q){DAP A,4(Q)}
;-----------------------------------------------------------------
;PROPERTY-TYPE MACROS.
	DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
	DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
	DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
	DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}

;PROPERTY-TYPE BITS.
	↓VBIT←←1B17		;VERTEX.
	↓EBIT←←1B16		;EDGE.
	↓FBIT←←1B15		;FACE.

	↓PBIT←←1B14		;POLYGON.
	↓LBIT←←1B13		;LEVEL
	↓IBIT←←1B12		;IMAGE.

	↓FILBIT←←1B11		;FILM.
	↓HOLBIT←←1B10		;HOLE.
	↓ARCBIT←←1B9		;ARC.

	↓WESBIT←←1B8		;WEST.
	↓SOUBIT←←1B7		;SOUTH.
	↓EASBIT←←1B6		;EAST.

	↓NORBIT←←1B5		;NORTH.
	↓WASP←←1B4		;WASP WAISTED EDGE.
	↓TMPBIT←←1B3		;TEMPORARY BIT.

;LINK-RELOCATION BITS OF EACH NODE TYPE.
	  VREL←303210	;VERTEX.
	  EREL←←400000	;EDGE.
	  FREL←023103	;FACE.
	PGNREL←333233	;POLYGON.
	LVLREL←330003	;LEVEL.
	IMGREL←333333	;IMAGE.
	FILREL←011000	;FILM.
AC12:0
;-----------------------------------------------------------------